home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utmisc1
/
ovr50711.lha
/
Over5
/
64bin
/
boot
(
.txt
)
next >
Wrap
Commodore BASIC
|
1996-05-12
|
241b
|
12 lines
100 OPEN2,2,3,CHR$(5)+CHR$(0)
110 PRINT"WAITING..."
120 GET#2,A$:IF A$<>"S" THEN120
130 GET#2,A$:IF A$="S" OR A$="" THEN130
140 FOR I=6000 TO 6511
150 GET#2,A$:IF A$="" THEN150
160 A=ASC(A$):C=(C+A)AND255
170 POKE I,A:PRINT"#";
180 NEXT
190 IF C<>0 THENPRINT:PRINT"?CHK ERROR":CLOSE 2:END
200 CLOSE 2:SYS 6000